label ooooooooopRiNTENooizso^acc ex object/read; f ile sourcefile=symbul/sysuisk;enq* 



OBJECT /READ 
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COMMENT: 



%SYSTEM DISK MAKER FlJK EXTENDED DATACOMM 

* TITLE* B55Q0/B5700 «AHK XIV SYSTEM HELEASE 

* FILE ID; S1MRQ1./SYSDISK TAPE, LDJ SYMBtU.2 /r T LFOOQ 



* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * 

* AND IS NOT TO BE REPRODUCED* USED* OR DISCLOSED * 
» FXCEPT TM ACCORDANCE WITH PRIBRAM LlCFfclSF OR UPON *_ 



oouoiooo 
00001110 

QO0 1111- 



* WRITTEN AUTHORIZATION UF THE PATENT DIVISION OF 

* BURROUGHS CORPORATION* DETROIT* MICHIGAN 48232 



00001U2 
00001U3 
00001114. 



* COPYRIGHT CO 1971 * 

* AA320206 AA386657 
DEFIN E SY S0lSKRL *5f* TC5oo»2#* 



00001H5 

00001116 

-000011U 



1972 BURROUGHS CORPORATION 



*; 



ARRAY AtOiSYSOISKRL3#SAVEACO«25bJ»BtOllO]; 

boolean nostations*nogu,noerhs*schedline; 
INTEGER imax*tnaogcnt*i*s»qldbuff*sta count; 



3CHE Q«7f , TWXaOi* MULTIF0INT«2«; 



00001118 
00O0U19 
000 02 000 



FILE CARD (1*10,300); 

FILE DISK DISK SERIAL 

SAVE 99); 



£1*256) "SYSTEM" "DISK" C 2* 5YSD ISKRL* 30, 



FILE PRNT 1(1,1.0); 

LABEL EOF, AWAY; 

REAL STREAM PROCEDURE SCANCd); 



00003000 
00004000 
00005000 
00006000 
00007000 
_QMG_SJ}.C1Q. 



BEGIN LABEL 
SIU8J 
_U IF Sc»« 



LJ 



00009000 

00010000 

.jttflflUOOQ.. 



if sc="l" then 
if sc*"s" then 
- SCani^tal l y; 



THFN BFGTN SH*SI + H GO TO L END; 



TALLY:»1 ELSE 
TALLY:=2; 



00012000 
00013000 
00 1 40 00 



end; 

- PROCE DUR E ERRQ R (N ); value hi INTEGER mj 



00015000 

00016000 

-0 00 1 7000 - 



BEGIN FORMAT F(//)* Fit/); 

SWITCH FORMAT FMTS:s 
C" BUFFER SIZE ERtfQR"), 



00018000 
00019000 

00021000 
00022000 
00023000 



(» WARNING: NO STATION CARDS FOR PREVIOUS LINE CARD")* 00024 00 
C" TU/BUFF OUT Of ORDER")* 00025000 

C" SCHEDULE LINE DECLARED Qui OF ORDER")* 0QO2 6Q0Q 



C" 

C" 
(" 



TO 7"), 



WARNING: NAKMAX TOO LARGE* SET 

ILLEGAL ADDRESS CHARACTER"), 

MORE THAN ONE STATION ON NON-MULT iPO INT LINE"), 



IF 



(" TOO MANY STATIONS ON THIS 
(" .STATION TYPE INCOMPATIBLE 

NOERRS THEN 



LINE"), 
WITH LINE 



00027000 
00028000 
0QO290Q0 



DISCIPLINE-); 



BEGIN WRITE(PRNT,F); 

WRITECPRNT*10,B[*3); 
WRITE(PRNT,FU; 



00030000 
00031000 
00032000 



00033000 
00034000 
00035000 



end; 
writecprnt*fmts[abs(n)3); 

NQG0l»N060 OR N GEO 0; 



end; 



noerrs»=falSe; 



00036000 
00037000 
00038000 



PROCEDURE NOSTAS; 
BEGIN REAL OUMj 
IF tDUMt»A(41.C3l33)»THX THEN ACQaigO 



00039000 
00040000 
00041Q0Q 



ELSE IF DUMXSCHED THEN ERRQRC 
WRITE(DISK,SYSDISKRL*AC*)); 

lmax:«lmax+i j 



00042000 
00043000 
Q Q Q440 00 



1) 



00045000 
00046000 
00047000 



end; 

procedure newline; 
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00050000 
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BEGIN REAL D^M* TU* BUFF* BUFS IZE* PNGPNG* ACT Y P» LI NEUiS* DI RECT ; 
LABEL SETUP; 

NOERRSt=TRUE; 



OOUblOOO 
00052000 

nooftaooo 



STACOUNTl»0; 00Q5400Q 

IF NOSTATIONS THEN NOSTAS; 00055000 

READ(B[»-U/»nUM»TU,BuFF*BUFSI2E,PNifiPNG.AnTvP.I I NiEOl s. DJ RFC T ? I 00056000 



IF LINEDlSsSCHED THEN 

BEGIN IF NOT SCHEDLlNE 

BHFSUF:s«?l 



THEN ERKQRC3) 



GO TO SETUP; 

end; 

b ufsi z e*«i f b ufsiZe b ?s th e n q 



00057000 
00058000 
00U 5 9Q0Q 



ELSE 



00060000 
00061000 

ooQ6?ono 



IF BUFSIZE*56 THEN 1 ELSE 00003000 

IF BUFSIZE-112 ThEN 00064000 

IF BOOLEAN(PNGPNG) THEN BuFSlZE ELSE 2 ELSE BuFsIZE; Q0065 Q Qn 



IF BUFSIZE LSS OR BUFSIZE GTR 2 THEN ERRCRCO); 

IF OLDBUFF GEO OLDBUFF I «BUf F&TUUO »44 \ 4 J THEN ERR0RC2); 

SCHEPLlNEfFALSE; 



00066000 
00067000 

___, _li-i^ *■»... •■■_-,---.-»..■-■.-* .: -. , . __ . 00068000 

SETUp: A[4 3»B0&DIRECU2U7IJ]4LINEUlSC3l45l3UdUFSlZEC6*46l2] 00069000 

4PNGI»NG[au7i l]4TUt9*44U34BLFF[HU4*4]4A0TYPti8M6i2]# 000 70000 

NQSTATlONS*»TRUFJ nno/innn 

00072000 
00073000 
00074000 



end; 

procedure newstation; 



BEGIN REAL DUM, T YPE'L INELE^GTH* L INEP AGE*N A** AX* ADDR1' ADQR2* NEQl* 
NEQ2; 
DEFINE NQ 1 s BOOLE AN CNEfll)#* NQ2»B00LEmN CNEQ2 )»; 



BOOLEAN STREAM PROCEDURE faADADDRESS( CH AR ); 
BEGIN LOCAL A»B; 

on»L8c b; pSisLiT* ; osi«io Lii^MiiMPjall^i 



000/5000 

00076000 
OQU77QOiJ 



di««di-ii; 
si*»char; si«=si+7; 

1 1 C T F SC?UC THFN Hfc.fi I IN, 



00078000 

00079000 
00080000 



ELSE -SllaSl-i)! 

badadoressj»tally; 



TALLY 8p If JUMP OUT FNp 



00081000 
00082000 
000 8 3 000 



e n d; 



00084000 
00085000 
00086000 



noerrsi»true; oooa7ooo 

READC BC*l*/» CUM* TYPE*LINELE.NGTH*L INEP AGE* NaKMaX»ADDP1'ADDP>2» 00088000 
NEQl*NE_,g); 00089000 



IF NAKMAX GTR 7 THEN 
BEGIN NAKMAX I »7j 
ERRQR(»4)f 



end; 

IF (DUMIsAC4],[3l3J) 
ELSE 



00090000 
00091000 
QQ92Q Q 



TWX ThEN IF TYPE/TWX THEN ERR0RC8) ELSE 



00093000 
00094000 
00095000 



IF 0UM*SCHEO THEN 00096000 

BEGIN IF T¥PE«TNX THEN ERR0R(8)J 00097000 

__ IF C8APADDRES8CAD0R1) AND NOT NQt) OR (BADADDRESSC ADDR2 ) 00098000 



FNDI 



AND (NQ1 EQV N02)) THEN ERROR(S); 

IF LINEPAGE/O THEN Li NEPAGE : »LlNEP AGE-2; 



00099000 
00100000 
00101000 



AC0 3lsNE02«NEQH46t47Jl]&AD0R2[40»42J6 J4ADDRH34I42I6J 00102000 
4LINlLEN6THC26l40l8 34LINEPAGEC20«42t6]4NAKMAXtl7lil.5»3] 00103000 
4TYPEC 101451 33J OOlQAOOQ 



IF NOSTATIONS THEN 
BEGIN N0STAT1QNS;»FALSE; 
WRlTF^nTSK,SY.SnTSKHL*AC*1 U 



LMAXI»LMAX+i; 
END ELSE 
TF mtMJMULTTPniNT !_£_ FftflURfA) fl.fi f 



00105000 
00106000 
00107000 



00108000 
00109000 

ooiioono 



>r 



IF CSTACOUNTiaSTACQUNT+1) 
ERR0R(7) ELSE 
SAVFA[II»TtnfACOI4lMAK[2>AQ|HJj 



IF A[4] t [6»2]sQ THEN 3 ELSE 7 THEN 



0OH1O00 
00112000 
QO 11 300.0. 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



IF LINEPAGEXO OR TYPE«TC50Q THEN TNAGGCNT t bTNAUGCNT+1 ; 



end; 



00U4000 
OOU5000 
QO 1 16000, 



schedlinei=true; 
nostations«*nqgo«sFalse; 

LLE HI l OJULEZli 



00117000 
OOH8000 
0QU90QIL 



ACnt*AC23l«A[33la0; 

write(oisk#sysoiskrl#ac*3>; 
nn begin 



00120000 
00121000 
Q01220QQ 



00 REAO(CARD»10#B[*])CEOF] UNTIL CSI»SCANIB[*3))/0J 
IF BOOLEAN(S) THEN NErtLlNE ELSE NEfcSTATIUN; 
ENO UNTIL FAISEJ . . . 



00123000 
00124000 
00125000 
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16 
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19 
20 



EOF! 



CLOSE(CARO); 

IF NOSTATIONS THEN NOSTAS ; 



00126000 
00127000 
0012B0Q D 



IF NOGO THEN BEGIN CLOSEC DI SK# PURGE ) ) 

IF I GEO THEN 

BE G I N A[4]l=Q j 



GQ AKAY EnOJ 



00129000 
00130000 
00131000 
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FOB SJ*0 STEP 1 UNTIL I DO 
BEGIN AC03»*SAVEACS3; 
W RITE COTSK,SYSDISKRL* H±l±l 



00132000 
00133000 
00134Q0Q 
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end end; 
rewind(oisk); 

-jU-OJ-LsOJ 



00135000 
00136000 
00 13 7 0- 
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A C4 ] J«L«Ax&(LMAX + I + i)C32U0j8]&TNA0GCNTC24{40:8 3; 

WRITE<DISK*SYSDISKRL#AC*3)J 

LnCK(OISK)? 



O0138Q0O 
00139000 
0014QQOO 
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AWAYl 
END. 

ENDJEN Dt 



LAST CARD OM OCHOING TAPE 



00141000 

00142000 

99999999 
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LABEL O00OO0O0OPRIfm"K00l750*8CC tx U8 JEC T/RE AU; F ILE 50URCEF 'lLE«SYMBUu/SYSO ISK/ E<Nd* 



OBJECT /READ 
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